home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
lsp
/
defmacro.data
< prev
next >
Wrap
Text File
|
1986-07-03
|
1KB
|
75 lines
#(
#!
(lisp::in-package 'user::lisp)
#!
(lisp::export '(lisp::&whole lisp::&environment lisp::&body))
#!
(lisp::in-package 'lisp::system)
system::*dl*
system::*key-check*
system::*arg-check*
lisp::&rest
"The defmacro-lambda-list ~s is not a list."
lisp::&whole
lisp::&environment
lisp::&aux
lisp::unless
lisp::getf
:allow-other-keys
lisp::do
system::vl
(lisp::cddr system::vl)
((lisp::endp system::vl))
lisp::member
(lisp::car system::vl)
lisp::quote
(system::dm-key-not-allowed (lisp::car system::vl))
lisp::endp
(system::dm-too-many-arguments)
lisp::declare
lisp::ignore
lisp::lambda-block
1
0
lisp::&optional
lisp::&body
lisp::&key
lisp::&allow-other-keys
lisp::keyword
'system::failed
lisp::if
lisp::eq
'system::failed
lisp::not
'system::failed
lisp::null
(system::dm-too-few-arguments)
4
lisp::cddddr
lisp::car
lisp::cadr
2
lisp::caddr
3
lisp::cadddr
lisp::cdr
lisp::cddr
lisp::cdddr
"Defmacro-lambda-list contains illegal use of ~s."
"Too few arguments are supplied to defmacro-lambda-list."
"Too many arguments are supplied to defmacro-lambda-list."
"The key ~s is not allowed."
system::defmacro*
system::dm-vl
system::dm-v
system::dm-nth
system::dm-nth-cdr
system::dm-bad-key
system::dm-too-few-arguments
system::dm-too-many-arguments
system::dm-key-not-allowed
system::find-doc
system::find-declarations
)